TOS Silver 2000/TOS Silver 2000.iso/programm/MM2_DEV/S/MYUTIL/CACHE_ON.M

Text File | 1991-03-09 | 354 b | 24 lines

MODULE CacheOn;

(*$N+*)
(*$L-*)

FROM SYSTEM IMPORT ASSEMBLER;
FROM SysInfo IMPORT Has020;
FROM XBIOS IMPORT SuperExec;

PROCEDURE on;
  BEGIN
    ASSEMBLER
        MOVEQ   #1,D0
        DC.W    $4E7B   ; MOVEC
        DC.W    $0002   ; D0,CACR
    END
  END on;

BEGIN
  IF Has020 () THEN
    SuperExec (on)
  END
END CacheOn.